Namespace Cliente
Public Class Cliente
	Inherits Auditoria.Transaccion

	Private vClienteId As Integer = -1
	Private vNombre As String = ""
	Private vDocumentoTipoId As Integer = -1
	Private vDocumentoNro As String = ""
	Private vDireccion As String = ""

	Public Property ClienteId() As Integer
		Get
			Return vClienteId
		End Get
		Set(ByVal Value As Integer)
			vClienteId = Value
		End Set
	End Property

	Public Property Nombre() As String
		Get
			Return vNombre
		End Get
		Set(ByVal Value As String)
			vNombre = Value
		End Set
	End Property

	Public Property DocumentoTipoId() As Integer
		Get
			Return vDocumentoTipoId
		End Get
		Set(ByVal Value As Integer)
			vDocumentoTipoId = Value
		End Set
	End Property

	Public Property DocumentoNro() As String
		Get
			Return vDocumentoNro
		End Get
		Set(ByVal Value As String)
			vDocumentoNro = Value
		End Set
	End Property

	Public Property Direccion() As String
		Get
			Return vDireccion
		End Get
		Set(ByVal Value As String)
			vDireccion = Value
		End Set
	End Property

	Sub New()
	End Sub

	Sub New(ByRef ClienteId As Integer, ByVal Nombre As String, ByVal DocumentoTipoId As Integer, ByVal DocumentoNro As String, ByVal Direccion As String)
		vClienteId = ClienteId
		vNombre = Nombre
		vDocumentoTipoId = DocumentoTipoId
		vDocumentoNro = DocumentoNro
		vDireccion = Direccion
	End Sub

End Class



 Public Class ClienteCol   
 Inherits System.Collections.CollectionBase
Private _enmSortDirection As SortDirection
Public Sub New()
_enmSortDirection = SortDirection.Asc
End Sub
Public Sub Sort(ByVal sortExpression As String, ByVal sortDirection As SortDirection)
InnerList.Sort(New Comparer(sortExpression, SortDirection))
End Sub
Public Sub Sort(ByVal sortExpression As String)
InnerList.Sort(New Comparer(sortExpression, _enmSortDirection))
If _enmSortDirection = SortDirection.Asc Then
_enmSortDirection = SortDirection.Desc
Else
_enmSortDirection = SortDirection.Asc
End If
End Sub
Public Function Add(ByVal obj As Cliente) As Integer
Return MyBase.List.Add(obj)
End Function
Public ReadOnly Property Cliente(ByVal Index As Integer) As Cliente
Get
Return CType(MyBase.List(Index), Cliente)
End Get
End Property
End Class
end namespace

